home *** CD-ROM | disk | FTP | other *** search
- %%BeginResource: file Pscript_Win_Euro_L2 5.0 0
- /UseT3EuroFont{/currentdistillerparams where{pop currentdistillerparams
- /CoreDistVersion get 4000 le}{false}ifelse}bind def/NewEuroT3Font?{dup/FontType
- get 3 eq{dup/EuroFont known exch/BaseFont known and}{pop false}ifelse}bind def
- /T1FontHasEuro{dup/CharStrings known not{dup NewEuroT3Font?{dup/EuroGlyphName
- get exch/EuroFont get/CharStrings get exch known{true}{false}ifelse}{pop false}
- ifelse}{dup/FontType get 1 eq{/CharStrings get/Euro known}{dup/InfoDict known{
- /InfoDict get/Euro known}{/CharStrings get/Euro known}ifelse}ifelse}ifelse}bind
- def/FontHasEuro{findfont dup/Blend known{pop true}{T1FontHasEuro}ifelse}bind
- def/EuroEncodingIdx 1 def/EuroFontHdr{12 dict begin/FontInfo 10 dict dup begin
- /version(001.000)readonly def/Notice(Copyright (c)1999 Adobe Systems
- Incorporated. All Rights Reserved.)readonly def/FullName(Euro)readonly def
- /FamilyName(Euro)readonly def/Weight(Regular)readonly def/isFixedPitch false
- def/ItalicAngle 0 def/UnderlinePosition -100 def/UnderlineThickness 50 def end
- readonly def/FontName/Euro def/Encoding 256 array 0 1 255{1 index exch/.notdef
- put}for def/PaintType 0 def/FontType 1 def/FontMatrix[0.001 0 0 0.001 0 0]def
- /FontBBox{-25 -23 1500 804}readonly def currentdict end dup/Private 20 dict dup
- begin/ND{def}def/NP{put}def/lenIV -1 def/RD{string currentfile exch
- readhexstring pop}def/-|{string currentfile exch readstring pop}executeonly def
- /|-{def}executeonly def/|{put}executeonly def/BlueValues[-20 0 706 736 547 572]
- |-/OtherBlues[-211 -203]|-/BlueScale 0.0312917 def/MinFeature{16 16}|-/StdHW
- [60]|-/StdVW[71]|-/ForceBold false def/password 5839 def/Erode{8.5 dup 3 -1
- roll 0.1 mul exch 0.5 sub mul cvi sub dup mul 71 0 dtransform dup mul exch dup
- mul add le{pop pop 1.0 1.0}{pop pop 0.0 1.5}ifelse}def/OtherSubrs[{}{}{}
- {systemdict/internaldict known not{pop 3}{1183615869 systemdict/internaldict
- get exec dup/startlock known{/startlock get exec}{dup/strtlck known{/strtlck
- get exec}{pop 3}ifelse}ifelse}ifelse}executeonly]|-/Subrs 5 array dup 0
- <8E8B0C100C110C110C210B>put dup 1<8B8C0C100B>put dup 2<8B8D0C100B>put dup 3<0B>
- put dup 4<8E8C8E0C100C110A0B>put |- 2 index/CharStrings 256 dict dup begin
- /.notdef<8b8b0d0e>def end end put put dup/FontName get exch definefont pop}bind
- def/AddEuroGlyph{2 index exch EuroEncodingIdx 1 eq{EuroFontHdr}if systemdict
- begin/Euro findfont dup dup/Encoding get 5 1 roll/Private get begin/CharStrings
- get dup 3 index known{pop pop pop pop end end}{begin 1 index exch def end end
- end EuroEncodingIdx dup 1 add/EuroEncodingIdx exch def exch put}ifelse}bind def
- /GetNewXUID{currentdict/XUID known{[7 XUID aload pop]true}{currentdict/UniqueID
- known{[7 UniqueID]true}{false}ifelse}ifelse}bind def/BuildT3EuroFont{exch 16
- dict begin dup/FontName exch def findfont dup/Encoding get/Encoding exch def
- dup length 1 add dict copy dup/FID undef begin dup dup/FontName exch def
- /Encoding 256 array 0 1 255{1 index exch/.notdef put}for def GetNewXUID{/XUID
- exch def}if currentdict end definefont pop/BaseFont exch findfont 1000
- scalefont def/EuroFont exch findfont 1000 scalefont def pop/EuroGlyphName exch
- def/FontType 3 def/FontMatrix[.001 0 0 .001 0 0]def/FontBBox BaseFont/FontBBox
- get def/Char 1 string def/BuildChar{exch dup begin/Encoding get 1 index get
- /Euro eq{BaseFont T1FontHasEuro{false}{true}ifelse}{false}ifelse{EuroFont
- setfont pop userdict/Idx 0 put EuroFont/Encoding get{EuroGlyphName eq{exit}
- {userdict/Idx Idx 1 add put}ifelse}forall userdict/Idx get}{dup dup Encoding
- exch get BaseFont/Encoding get 3 1 roll put BaseFont setfont}ifelse Char 0 3 -1
- roll put Char stringwidth newpath 0 0 moveto Char true charpath flattenpath
- pathbbox setcachedevice 0 0 moveto Char show end}bind def currentdict end dup
- /FontName get exch definefont pop}bind def/AddEuroToT1Font{dup findfont dup
- length 10 add dict copy dup/FID undef begin/EuroFont 3 -1 roll findfont 1000
- scalefont def CharStrings dup length 1 add dict copy begin/Euro{EuroFont
- setfont pop EuroGBBox aload pop setcachedevice 0 0 moveto EuroGName glyphshow}
- bind def currentdict end/CharStrings exch def GetNewXUID{/XUID exch def}if 3 1
- roll/EuroGBBox exch def/EuroGName exch def currentdict end definefont pop}bind
- def/BuildNewFont{UseT3EuroFont{BuildT3EuroFont}{pop AddEuroToT1Font}ifelse}bind
- def/UseObliqueEuro{findfont/FontMatrix get dup 2 get 0 eq exch dup 0 get exch 3
- get eq and UseT3EuroFont or}bind def
- %%EndResource
-